home *** CD-ROM | disk | FTP | other *** search
/ Lip Tissue / Lip Tissue - Disc 1.iso / pc / _b_v_ebb.v11 / CONFIG / ras_22_OK-SCRIPT.ls < prev    next >
Encoding:
Text File  |  1997-03-02  |  1.5 KB  |  61 lines
  1. on mouseUp
  2.   global xautospeed, xfast, xmiddle, xslow, xvolume
  3.   if the hilite of cast "fast" then
  4.     set xautospeed to xfast
  5.     puppetTempo(xfast)
  6.   else
  7.     if the hilite of cast "middle" then
  8.       set xautospeed to xmiddle
  9.       puppetTempo(xmiddle)
  10.     else
  11.       if the hilite of cast "slow" then
  12.         set xautospeed to xslow
  13.         puppetTempo(xslow)
  14.       end if
  15.     end if
  16.   end if
  17.   if the hilite of cast "VOL-0" then
  18.     set the soundLevel to 0
  19.     set xvolume to 0
  20.   else
  21.     if the hilite of cast "VOL-1" then
  22.       set the soundLevel to 1
  23.       set xvolume to 1
  24.     else
  25.       if the hilite of cast "VOL-2" then
  26.         set the soundLevel to 2
  27.         set xvolume to 2
  28.       else
  29.         if the hilite of cast "VOL-3" then
  30.           set the soundLevel to 3
  31.           set xvolume to 3
  32.         else
  33.           if the hilite of cast "VOL-4" then
  34.             set the soundLevel to 4
  35.             set xvolume to 4
  36.           else
  37.             if the hilite of cast "VOL-5" then
  38.               set the soundLevel to 5
  39.               set xvolume to 5
  40.             else
  41.               if the hilite of cast "VOL-6" then
  42.                 set the soundLevel to 6
  43.                 set xvolume to 6
  44.               else
  45.                 if the hilite of cast "VOL-7" then
  46.                   set the soundLevel to 7
  47.                   set xvolume to 7
  48.                 end if
  49.               end if
  50.             end if
  51.           end if
  52.         end if
  53.       end if
  54.     end if
  55.   end if
  56.   tell the stage
  57.     continue()
  58.   end tell
  59.   forget(window "CONFIG")
  60. end
  61.